(etags-tags-completion-table): When skipping the noise

before the tag name, let it end with any char not allowed in a tag.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 70dcd9a557dad23e60da800e8094cdffd1026eb4..e72fdb3e7cd7912979697fc3cc335f19e4e0f210 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -915,7 +915,8 @@ See documentation of variable `tags-file-name'."
       ;;   \6 is not interesting;
       ;;   \7 is the explicitly-specified tag name.
       (while (re-search-forward
-             "^\\(\\(.+[ \t]+\\)?\\([-a-zA-Z0-9_$]+\\)[^-a-zA-Z0-9_$]*\\)\177\
+             "^\\(\\(.+[^-a-zA-Z0-9_$]+\\)?\\([-a-zA-Z0-9_$]+\\)\
+\[^-a-zA-Z0-9_$]*\\)\177\
 \\([0-9]+\\),\\([0-9]+\\)\\(,\001\\([^\n]+\\)\\)?\n"
              nil t)
        (intern (if (match-beginning 6)